home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC Special 3 / Logiciel PC - Hors-Serie 3.iso / Logs / micros / ql / qlay083 / qsbb_bas < prev    next >
Text File  |  1997-08-24  |  909b  |  45 lines
  1. 100 REMark QLAY SuperBasic Benchmark
  2. 110 CLOSE#1
  3. 120 OPEN#1,con_256x202a256x0
  4. 130 INK#1,7:PAPER#1,2:BORDER#1,1,7,0
  5. 140 MODE 4
  6. 150 PRINT#2,\"   QLAY SuperBasic Benchmark "
  7. 160 PRINT#2,\"   3 tests, 20 seconds each"
  8. 170 PRINT#2,\"   Please wait a minute ..."\\
  9. 180 FOR i=0 TO 20:PRINT " "
  10. 190 :
  11. 200 t=DATE
  12. 210 p=0
  13. 220 REPeat l1
  14. 230 FOR i=1 TO 20
  15. 240  PRINT p;" ";
  16. 250  p=p+1
  17. 260 NEXT i
  18. 270 IF DATE-t>20:EXIT l1
  19. 280 END REPeat l1
  20. 290 PRINT#2,\" Printing         ";p
  21. 300 :
  22. 310 t=DATE
  23. 320 p=0
  24. 330 REPeat l2
  25. 340 FOR i=1 TO 20
  26. 350  a=SIN(1):b=LN(4):c=EXP(10)
  27. 360  p=p+1
  28. 370 NEXT i
  29. 380 IF DATE-t>20: EXIT l2
  30. 390 END REPeat l2
  31. 400 PRINT#2,\" Functions        ";p
  32. 410 :
  33. 420 t=DATE
  34. 430 p=0
  35. 440 REPeat l3
  36. 450 FOR i=1 TO 20
  37. 460  a$="abcdefghijklmnopqrstuvwxyz"
  38. 470  b$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  39. 480  c$=FILL$(a$&b$,i)
  40. 490  p=p+1
  41. 500 NEXT i
  42. 510 IF DATE-t>20:EXIT l3
  43. 520 END REPeat l3
  44. 530 PRINT#2,\" Strings          ";p
  45.